home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u3.d64 / nec ml dump < prev    next >
Text File  |  2007-02-28  |  940b  |  47 lines
  1. 9000 // LIST "@0:NEC ML DUMP"
  2. 9010 // BY STEPHEN ANSON-CARTWRIGHT
  3. 9020 // PETER FOILES
  4. 9030 // 30 V SCENIC DR
  5. 9040 // CROTON NY 10520
  6. 9050 // (914)271-8202
  7. 9051 //
  8. 9052 OBJ'LOAD("ML'DUMP.OBJ",8)
  9. 9060 PROC OBJ'LOAD(FILENAME$,DEVICE) CLOSED
  10. 9070 FOR I:=1 TO LEN(FILENAME$) DO
  11. 9080 POKE 827+I,ORD(FILENAME$(I))
  12. 9090 ENDFOR I
  13. 9100 POKE 850,169
  14. 9110 POKE 851,DEVICE
  15. 9120 POKE 852,170
  16. 9130 POKE 853,160
  17. 9140 POKE 854,255
  18. 9150 POKE 855,32
  19. 9160 POKE 856,186
  20. 9170 POKE 857,255
  21. 9180 POKE 858,169
  22. 9190 POKE 859,LEN(FILENAME$)
  23. 9200 POKE 860,162
  24. 9210 POKE 861,60
  25. 9220 POKE 862,160
  26. 9230 POKE 863,3
  27. 9240 POKE 864,32
  28. 9250 POKE 865,189
  29. 9260 POKE 866,255
  30. 9270 POKE 867,169
  31. 9280 POKE 868,0
  32. 9290 POKE 869,162
  33. 9300 POKE 870,255
  34. 9310 POKE 871,160
  35. 9320 POKE 872,255
  36. 9330 POKE 873,32
  37. 9340 POKE 874,213
  38. 9350 POKE 875,255
  39. 9360 POKE 876,169
  40. 9370 POKE 877,DEVICE
  41. 9380 POKE 878,32
  42. 9390 POKE 879,195
  43. 9400 POKE 880,255
  44. 9410 POKE 881,96
  45. 9420 SYS 850
  46. 9430 ENDPROC OBJ'LOAD
  47.